; Music of Spitting Image - The Computer Game (1988) (Domark) (David Whittaker)
; Ripped by Megachur the 09/02/2007

	write "SPII-TCG.BIN"

music_date_rip	equ &0927
music_adr	equ &0400
first_theme	equ 0
last_theme	equ 5

	read "music_header_v1_0.asm"
	
;0400
;
.init_music
.l0400
;
	push af
	call l0643
	pop af
	ld c,a
	add a
	add c
	add a
	add c
	ld c,a
	ld b,#00
	ld hl,l116a
	add hl,bc
	ld a,(hl)
	ld (l04ee),a
	ld (l0b69),a
	inc hl
	ld ix,l046d
	ld c,#22
	ld a,#03
.l0421
	ld e,(hl)
	inc hl
	ld d,(hl)
	inc hl
	push hl
	ld (ix+#10),#01
	ld (ix+#00),b
	ld (ix+#1d),b
	ld (ix+#1f),b
	ld (ix+#20),b
	ld hl,l0a32
	ld (ix+#0b),l
	ld (ix+#09),l
	ld (ix+#0c),h
	ld (ix+#0a),h
	ld (ix+#03),e
	ld (ix+#04),d
	ex de,hl
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld (ix+#05),#02
	ld (ix+#06),b
	pop hl
	ld (ix+#01),e
	ld (ix+#02),d
	add ix,bc
	dec a
	jr nz,l0421
	ld (l0869),a
	dec a
	ld (l0b6a),a
	ld (l0b65),a
	ret
.l046d
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#09
.l048f
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#12
.l04b1
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#24
;
.play_music
;
	ld a,(l0b65)
	ld hl,l0b66
	or (hl)
	inc hl
	or (hl)
	inc hl
	or (hl)
	ret z
	call l0c88
	ld a,(l0b65)
	and a
	jr z,l0539
.l04e9 equ $ + 1
	ld a,#00
	ld (l0535),a
.l04ee equ $ + 1
	ld a,#01
	ld hl,l0b6a
	add (hl)
	ld (hl),a
	jr nc,l050d
	ld b,#00
	ld ix,l046d
	call l075f
	ld ix,l048f
	call l075f
	ld ix,l04b1
	call l075f
.l050d
	ld ix,l046d
	call l0836
	ld (l094a),hl
	ld (l0952),a
	ld ix,l048f
	call l0836
	ld (l094c),hl
	ld (l0953),a
	ld ix,l04b1
	call l0836
	ld (l094e),hl
	ld (l0954),a
.l0535 equ $ + 1
	ld a,#00
	ld (l0950),a
.l0539
	ld a,(l0b65)
	and a
	jr nz,l054f
	ld (l0952),a
	ld (l0953),a
	ld (l0954),a
	ld a,#3f
	ld (l0951),a
	jr l0577
.l054f
	ld a,(l0b64)
	and #0f
	xor #0f
	jr z,l0577
	ld b,a
	ld a,(l0952)
	sub b
	jr nc,l0560
	xor a
.l0560
	ld (l0952),a
	ld a,(l0953)
	sub b
	jr nc,l056a
	xor a
.l056a
	ld (l0953),a
	ld a,(l0954)
	sub b
	jr nc,l0574
	xor a
.l0574
	ld (l0954),a
.l0577
	ld a,(l0b66)
	and a
	jr z,l059f
	ld hl,(l0957)
	ld (l094a),hl
	ld a,(l1101)
	ld b,a
	bit 3,a
	jr nz,l0591
	ld a,(l095d)
	ld (l0950),a
.l0591
	ld hl,l0951
	ld a,(hl)
	or #09
	and b
	ld (hl),a
	ld a,(l095f)
	ld (l0952),a
.l059f
	ld a,(l0b67)
	and a
	jr z,l05c9
	ld hl,(l0959)
	ld (l094c),hl
	ld a,(l1116)
	ld b,a
	bit 3,a
	jr nz,l05b9
	ld a,(l095d)
	ld (l0950),a
.l05b9
	ld hl,l0951
	ld a,(hl)
	or #12
	rlc b
	and b
	ld (hl),a
	ld a,(l0960)
	ld (l0953),a
.l05c9
	ld a,(l0b68)
	and a
	jr z,l05f5
	ld hl,(l095b)
	ld (l094e),hl
	ld a,(l112b)
.l05d8
	ld b,a
	bit 3,a
	jr nz,l05e3
	ld a,(l095d)
	ld (l0950),a
.l05e3
	ld hl,l0951
	ld a,(hl)
	or #24
	rlc b
	rlc b
	and b
	ld (hl),a
	ld a,(l0961)
	ld (l0954),a
.l05f5
	ld hl,l0954
	ld d,#0a
.l05fa
	ld e,(hl)
	ld b,#f4
	out (c),d
	ld bc,#f600
	out (c),c
	ld a,#c0
	out (c),a
	out (c),c
	ld b,#f4
	out (c),e
	ld b,#f6
	add a
	out (c),a
	out (c),c
	dec hl
	dec d
	jp p,l05fa
	ret
.l061b
	ld de,l0a00
.l061e
	call l0628
	dec d
	jp p,l061e
	ld de,l073f
.l0628
	ld b,#f4
	out (c),d
	ld bc,#f600
	out (c),c
	ld a,#c0
	out (c),a
	out (c),c
	ld b,#f4
	out (c),e
	ld b,#f6
	add a
	out (c),a
	out (c),c
	ret
;	
.stop_music
.l0643
;
	xor a
	ld (l0b65),a
	call l1140
	call l061b
	xor a
	ld (l0952),a
	ld (l0953),a
	ld (l0954),a
	ret
	db #f1,#d5,#ce,#d8,#9b,#e0,#db,#32
	db #bb,#ac,#71,#5b,#83,#de,#27,#eb
	db #ec,#f1,#aa,#0a,#01,#1a,#13
	ld (l04ee),a
	jp l076d
	ld a,(de)
	ld (ix+#03),a
	ld l,a
	inc de
	ld a,(de)
	ld (ix+#04),a
	ld h,a
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld (ix+#05),#02
	ld (ix+#06),b
	jp l076d
	pop hl
	jp l0643
	ld c,(ix+#05)
	ld b,(ix+#06)
	ld l,(ix+#03)
	ld h,(ix+#04)
	add hl,bc
	inc bc
	inc bc
	ld a,(hl)
	inc hl
	ld d,(hl)
	ld e,a
	or d
	jr nz,l06b3
	ld l,(ix+#03)
	ld h,(ix+#04)
	ld bc,#0002
	ld e,(hl)
	inc hl
	ld d,(hl)
.l06b3
	ld (ix+#05),c
	ld (ix+#06),b
	ld b,#00
	jp l076d
	ld a,(ix+#21)
	ld c,a
	and #07
	ld hl,l0915
	xor (hl)
	and c
	xor (hl)
	ld (hl),a
	ld a,#01
	ld (ix+#1e),a
	jp l076d
	ld a,(ix+#21)
	ld c,a
	and #38
	ld hl,l0915
	xor (hl)
	and c
	xor (hl)
	ld (hl),a
	xor a
	ld (ix+#1e),a
	jp l076d
	ld hl,l0915
	ld a,(ix+#21)
	cpl
	and (hl)
	ld (hl),a
	ld a,#01
	ld (ix+#1e),a
	jr l076d
	ld a,(de)
	inc de
	ld (ix+#07),b
	ld (ix+#08),b
	ld (ix+#0d),a
	set 2,(ix+#00)
	ld a,(de)
	ld (ix+#0e),a
	inc de
	jr l076d
	ld a,(de)
	inc de
	ld (l0869),a
	jr l076d
	ld a,(de)
	inc de
	ld (ix+#20),a
	jr l076d
	ld a,(de)
	ld (ix+#1b),a
	inc de
	ld a,(de)
	ld (ix+#1a),a
	ld (ix+#1c),a
	inc de
	ld (ix+#1d),#40
	jr l076d
	ld (ix+#1d),b
	jr l076d
	ld (ix+#1d),#c0
	jr l076d
	set 7,(ix+#00)
.l073f equ $ + 2
	set 3,(ix+#00)
	jr l076d
	set 1,(ix+#00)
	jr l076d
	ld (ix+#13),b
	res 5,(ix+#00)
	jr l079c
	jr l0798
	ld (ix+#1f),#ff
	jr l076d
	ld (ix+#1f),b
	jr l076d
.l075f
	dec (ix+#10)
	jr nz,l07da
	ld (ix+#00),b
	ld e,(ix+#01)
	ld d,(ix+#02)
.l076d
	ld a,(de)
	inc de
	and a
	jp m,l07eb
	ld (ix+#12),a
	bit 0,(ix+#1e)
	jr z,l077f
	ld (l04e9),a
.l077f
	ld l,(ix+#14)
	ld (ix+#16),l
	ld h,(ix+#15)
	ld (ix+#17),h
	ld a,(hl)
	ld (ix+#18),a
	ld (ix+#13),a
	ld a,(ix+#0f)
	ld (ix+#19),a
.l0798
	set 5,(ix+#00)
.l079c
	ld a,(ix+#11)
	ld (ix+#10),a
	ld (ix+#02),d
	ld (ix+#01),e
	ld a,(ix+#1f)
	and a
	jr z,l07d9
	ld a,(l0b66)
	and a
	jr z,l07bb
	ld a,(l1101)
	bit 3,a
	jr z,l07d9
.l07bb
	ld a,(l0b67)
	and a
	jr z,l07c8
	ld a,(l1116)
	bit 3,a
	jr z,l07d9
.l07c8
	ld a,(l0b68)
	and a
	jr z,l07d5
	ld a,(l112b)
	bit 3,a
	jr z,l07d9
.l07d5
	ld (ix+#1f),#ff
.l07d9
	ret
.l07da
	ld a,(ix+#00)
	bit 3,a
	ret z
	rla
	jr nc,l07e7
	inc (ix+#12)
	ret
.l07e7
	dec (ix+#12)
	ret
.l07eb
	cp #c0
	jr c,l082e
	add #20
	jr c,l080f
	add #10
	jr c,l0816
	add #10
	ld c,a
	ld hl,l0a23
	add hl,bc
	ld c,(hl)
	add hl,bc
	ld (ix+#0b),l
	ld (ix+#09),l
	ld (ix+#0c),h
	ld (ix+#0a),h
	jp l076d
.l080f
	inc a
	ld (ix+#11),a
	jp l076d
.l0816
	ld hl,l0a5f
	add a
	ld c,a
	add hl,bc
	ld a,(hl)
	inc hl
	ld h,(hl)
	ld l,a
	ld (ix+#14),l
	ld (ix+#15),h
	dec hl
	ld a,(hl)
	ld (ix+#0f),a
	jp l076d
.l082e
	ld hl,l05d8
	ld c,a
	add hl,bc
	ld c,(hl)
	add hl,bc
	jp (hl)
.l0836
	ld c,(ix+#00)
	bit 5,c
	jr z,l0868
	ld a,(ix+#19)
	sub #01
	ld (ix+#19),a
	jr nc,l0862
	ld a,(ix+#0f)
	ld (ix+#19),a
	ld l,(ix+#16)
	ld h,(ix+#17)
	inc hl
	ld a,(hl)
	and a
	jp m,l0862
	ld (ix+#16),l
	ld (ix+#17),h
	ld (ix+#18),a
.l0862
	ld a,(ix+#18)
	ld (ix+#13),a
.l0869 equ $ + 1
.l0868
	ld a,#00
	add (ix+#12)
	add (ix+#20)
	ld b,a
	ld l,(ix+#0b)
	ld h,(ix+#0c)
	ld a,(hl)
	inc hl
	and a
	jp p,l0885
	ld l,(ix+#09)
	ld h,(ix+#0a)
	and #7f
.l0885
	ld (ix+#0b),l
	ld (ix+#0c),h
	add b
	ld hl,l0963
	ld d,#00
	add a
	ld e,a
	add hl,de
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld l,(ix+#1d)
	bit 6,l
	jr z,l08e6
	ld h,a
	ld b,(ix+#1a)
	sla b
	bit 7,l
	ld a,(ix+#1c)
	jr z,l08af
	bit 0,c
	jr nz,l08cd
.l08af
	bit 5,l
	jr nz,l08bf
	sub (ix+#1b)
	jr nc,l08ca
	set 5,(ix+#1d)
	sub a
	jr l08ca
.l08bf
	add (ix+#1b)
	cp b
	jr c,l08ca
	res 5,(ix+#1d)
	ld a,b
.l08ca
	ld (ix+#1c),a
.l08cd
	ex de,hl
	srl b
	sub b
	ld e,a
	ld a,d
	ld d,#00
	jr nc,l08d8
	dec d
.l08d8
	add #a0
	jr c,l08e4
.l08dc
	sla e
	rl d
	add #18
	jr nc,l08dc
.l08e4
	add hl,de
	ex de,hl
.l08e6
	ld a,c
	xor #01
	ld (ix+#00),a
	bit 2,c
	jr z,l0911
	ld b,(ix+#0e)
	djnz l090e
	ld c,(ix+#0d)
	bit 7,c
	jr z,l08fd
	dec b
.l08fd
	ld l,(ix+#07)
	ld h,(ix+#08)
	add hl,bc
	ld (ix+#07),l
	ld (ix+#08),h
	add hl,de
	ex de,hl
	jr l0911
.l090e
	ld (ix+#0e),b
.l0911
	cpl
	and #03
.l0915 equ $ + 1
	ld a,#38
	jr nz,l0922
	ld a,(l04e9)
	xor #08
	ld (l0535),a
	ld a,#07
.l0922
	ld hl,l0951
	xor (hl)
	and (ix+#21)
	xor (hl)
	ld (hl),a
	ld a,(ix+#1f)
	and a
	jp p,l0945
	and #7f
	ld (ix+#1f),a
	ld a,(ix+#21)
	and #38
	xor #ff
	and (hl)
	ld (hl),a
	ld a,#41
	ld (l0535),a
.l0945
	ex de,hl
	ld a,(ix+#13)
	ret
.l0951 equ $ + 7
.l0950 equ $ + 6
.l094e equ $ + 4
.l094c equ $ + 2
.l094a
	db #00,#00,#00,#00,#00,#00,#00,#3f
.l0959 equ $ + 7
.l0958 equ $ + 6
.l0957 equ $ + 5
.l0954 equ $ + 2
.l0953 equ $ + 1
.l0952
	db #0f,#0f,#0f,#00,#00,#00,#00,#00
.l0961 equ $ + 7
.l0960 equ $ + 6
.l095f equ $ + 5
.l095d equ $ + 3
.l095c equ $ + 2
.l095b equ $ + 1
.l095a
	db #00,#00,#00,#00,#3f,#10,#00,#10
	db #00
.l0963
	dw #077c,#0708,#06b0,#0640
	dw #05ec,#0594,#0544,#04f8
	dw #04b0,#0470,#042c,#03f0
	dw #03be,#0384,#0358,#0320
	dw #02f6,#02ca,#02a2,#027c
	dw #0258,#0238,#0216,#01f8
	dw #01df,#01c2,#01ac,#0190
	dw #017b,#0165,#0151,#013e
	dw #012c,#011c,#010b,#00fc
	dw #00ef,#00e1,#00d6,#00c8
	dw #00bd,#00b2,#00a8,#009f
	dw #0096,#008e,#0085,#007e
	dw #0077,#0070,#006b,#0064
	dw #005e,#0059,#0054,#004f
	dw #004b,#0047,#0042,#003f
	dw #003b,#0038,#0035,#0032
	dw #002f,#002c,#002a,#0027
	dw #0025,#0023,#0021,#001f
	dw #001d,#001c,#001a,#0019
.l0a00 equ $ + 5
	dw #0017,#0016,#0015,#0013
	dw #0012,#0011,#0010,#000f
	dw #000e,#000e,#000d,#000c
	dw #000b,#000b,#000a,#0009
	dw #0009,#0008,#0008,#0007
.l0a23
	db #0f,#0f,#11,#13,#16,#19,#1b,#1d
.l0a32 equ $ + 7
	db #1f,#21,#22,#23,#24,#25,#26,#80
	db #00,#03,#87,#00,#04,#87,#00,#03
	db #07,#8c,#00,#04,#07,#8c,#07,#0c
	db #8f,#07,#0c,#90,#03,#07,#8c,#04
	db #07,#8c,#00,#8c,#00,#83,#00,#84
	db #00,#85,#00,#87,#0c,#00,#00,#00
	db #00,#00,#00,#80
.l0a5f
	dw l0a80,l0a86,l0a8d,l0a9f
	dw l0aad,l0ab5,l0ac5,l0ada
	dw l0b03,l0b14,l0b18,l0b24
	dw l0b35,l0b3d,l0b40,l0b43
.l0a86 equ $ + 7
.l0a80 equ $ + 1
	db #01,#0f,#0e,#0d,#05,#87,#01,#0d
.l0a8d equ $ + 6
	db #0b,#07,#03,#01,#87,#01,#0f,#0e
	db #0c,#0b,#0d,#0c,#0a,#09,#0b,#0a
	db #08,#07,#09,#08,#06,#05,#87,#01
.l0a9f
	db #0c,#0b,#0a,#09,#08,#07,#06,#05
.l0aad equ $ + 6
	db #04,#03,#02,#01,#87,#01,#0d,#0e
.l0ab5 equ $ + 6
	db #0f,#0e,#0d,#0c,#87,#01,#0d,#0e
	db #0f,#0e,#0d,#0a,#08,#07,#06,#05
.l0ac5 equ $ + 6
	db #04,#03,#02,#01,#87,#01,#0e,#0d
	db #0c,#0b,#0a,#09,#01,#08,#01,#07
	db #01,#06,#01,#05,#01,#04,#01,#02
.l0ada equ $ + 3
	db #01,#87,#08,#04,#06,#07,#08,#09
	db #0a,#0b,#0c,#0d,#0e,#0f,#0f,#0e
	db #0e,#0e,#0e,#0d,#0d,#0c,#0c,#0c
	db #0c,#0b,#0b,#0b,#0b,#0a,#0a,#0a
	db #0a,#09,#09,#09,#09,#08,#08,#08
.l0b03 equ $ + 4
	db #07,#06,#87,#05,#0f,#0e,#0d,#0c
	db #0b,#0a,#09,#08,#07,#06,#05,#04
.l0b14 equ $ + 5
	db #03,#02,#01,#87,#01,#0e,#00,#87
.l0b18 equ $ + 1
	db #01,#0e,#0d,#0c,#0b,#0a,#09,#0b
.l0b24 equ $ + 5
	db #0a,#09,#08,#87,#02,#0f,#0e,#0d
	db #0c,#0b,#0a,#09,#08,#07,#06,#05
.l0b35 equ $ + 6
	db #04,#03,#02,#01,#87,#03,#0e,#0d
.l0b3d equ $ + 6
	db #0c,#0b,#0a,#09,#87,#01,#0d,#87
.l0b43 equ $ + 4
.l0b40 equ $ + 1
	db #01,#0f,#87,#03,#0f,#0e,#0d,#0c
	db #0b,#0d,#0c,#0b,#0a,#09,#0b,#0a
	db #09,#08,#07,#09,#08,#07,#06,#05
	db #07,#06,#05,#04,#03,#05,#04,#03
.l0b66 equ $ + 7
.l0b65 equ $ + 6
.music_end equ $ + 6
.l0b64 equ $ + 5
	db #02,#01,#00,#87,#00,#0f,#00,#00
.l0b6a equ $ + 3
.l0b69 equ $ + 2
.l0b68 equ $ + 1
.l0b67
	db #00,#00,#00,#00
.l0b6b
	ld hl,l0b74
	ld b,#00
	add hl,bc
	ld c,(hl)
	add hl,bc
	jp (hl)
.l0b74
	inc bc
	ld e,l
	or a
	ld hl,l0b66
	ld (hl),#00
	ld hl,l0eb4
	add a
	add l
	ld l,a
	jr nc,l0b85
	inc h
.l0b85
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld b,#0e
	ld hl,l10fb
.l0b8d
	ld a,(de)
	ld (hl),a
	inc hl
	inc de
	djnz l0b8d
	ld a,(l10fc)
	ld (l1109),a
	ld hl,(l10fd)
	ld (l0957),hl
	ld a,(l1101)
	bit 3,a
	jr nz,l0baa
	ld a,l
	ld (l095d),a
.l0baa
	ld a,(l1106)
	ld (l110a),a
	ld a,(l1108)
	ld (l110f),a
	ld a,(l1105)
	ld hl,l1054
	add a
	ld c,a
	add hl,bc
	ld a,(hl)
	inc hl
	ld h,(hl)
	ld l,a
	ld (l110b),hl
	ld (l110d),hl
	ld a,(hl)
	ld (l095f),a
	ld hl,l0b66
	inc (hl)
	ret
	ld hl,l0b67
	ld (hl),#00
	ld hl,l0eb4
	add a
	add l
	ld l,a
	jr nc,l0be0
	inc h
.l0be0
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld b,#0e
	ld hl,l1110
.l0be8
	ld a,(de)
	ld (hl),a
	inc hl
	inc de
	djnz l0be8
	ld a,(l1111)
	ld (l111e),a
	ld hl,(l1112)
	ld (l0959),hl
	ld a,(l1116)
	bit 3,a
	jr nz,l0c05
	ld a,l
	ld (l095d),a
.l0c05
	ld a,(l111b)
	ld (l111f),a
	ld a,(l111d)
	ld (l1124),a
	ld a,(l111a)
	ld hl,l1054
	add a
	ld c,a
	add hl,bc
	ld a,(hl)
	inc hl
	ld h,(hl)
	ld l,a
	ld (l1120),hl
	ld (l1122),hl
	ld a,(hl)
	ld (l0960),a
	ld hl,l0b67
	inc (hl)
	ret
	ld hl,l0b68
	ld (hl),#00
	ld hl,l0eb4
	add a
	add l
	ld l,a
	jr nc,l0c3b
	inc h
.l0c3b
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld b,#0e
	ld hl,l1125
.l0c43
	ld a,(de)
	ld (hl),a
	inc hl
	inc de
	djnz l0c43
	ld a,(l1126)
	ld (l1133),a
	ld hl,(l1127)
	ld (l095b),hl
	ld a,(l112b)
	bit 3,a
	jr nz,l0c60
	ld a,l
	ld (l095d),a
.l0c60
	ld a,(l1130)
	ld (l1134),a
	ld a,(l1132)
	ld (l1139),a
	ld a,(l112f)
	ld hl,l1054
	add a
	ld c,a
	add hl,bc
	ld a,(hl)
	inc hl
	ld h,(hl)
	ld l,a
	ld (l1135),hl
	ld (l1137),hl
	ld a,(hl)
	ld (l0961),a
	ld hl,l0b68
	inc (hl)
	ret
.l0c88
	call l114b
	ld a,(l0b66)
	and a
	call nz,l0d50
	ld a,(l0b67)
	and a
	call nz,l0e02
	ld a,(l0b68)
	and a
	ret z
	ld a,(l1125)
	and a
	jr nz,l0cae
	ld a,(l1131)
	and a
	jr nz,l0cae
	ld (l0b68),a
	ret
.l0cae
	dec a
	ld (l1125),a
	ld a,(l1133)
	and a
	jr nz,l0ce6
	ld a,(l1131)
	and a
	jr nz,l0cc4
	ld a,(l112e)
	and a
	jr z,l0d28
.l0cc4
	dec a
	ld (l112e),a
	ld a,(l1126)
	ld (l1133),a
	ld a,(l112c)
	and a
	jr z,l0cd7
	ld a,(l1168)
.l0cd7
	ld b,a
	ld a,(l1127)
	add b
	ld (l095b),a
	ld a,(l1128)
	add b
	ld (l095c),a
.l0ce6
	ld hl,l1133
	dec (hl)
	ld hl,l1132
	ld a,(hl)
	and a
	jr z,l0cf8
	ld hl,l1139
	dec (hl)
	jr nz,l0d1b
	ld (hl),a
.l0cf8
	ld a,(l112d)
	and a
	jr z,l0d1b
	jp p,l0d0e
	ld hl,(l095b)
	ld de,(l1129)
	add hl,de
	ld (l095b),hl
	jr l0d1b
.l0d0e
	ld hl,(l095b)
	ld de,(l1129)
	and a
	sbc hl,de
	ld (l095b),hl
.l0d1b
	ld a,(l112b)
	bit 3,a
	jr nz,l0d28
	ld a,(l095b)
	ld (l095d),a
.l0d28
	ld a,(l1134)
	dec a
	ld (l1134),a
	jr nz,l0d4f
	ld a,(l1130)
	ld (l1134),a
	ld hl,(l1137)
	ld a,(hl)
	inc hl
	and a
	jp p,l0d49
	cp #80
	jr nz,l0d4f
	ld hl,(l1135)
	ld a,(hl)
	inc hl
.l0d49
	ld (l1137),hl
	ld (l0961),a
.l0d4f
	ret
.l0d50
	ld a,(l10fb)
	and a
	jr nz,l0d60
	ld a,(l1107)
	and a
	jr nz,l0d60
	ld (l0b66),a
	ret
.l0d60
	dec a
	ld (l10fb),a
	ld a,(l1109)
	and a
	jr nz,l0d98
	ld a,(l1107)
	and a
	jr nz,l0d76
	ld a,(l1104)
	and a
	jr z,l0dda
.l0d76
	dec a
	ld (l1104),a
	ld a,(l10fc)
	ld (l1109),a
	ld a,(l1102)
	and a
	jr z,l0d89
	ld a,(l1166)
.l0d89
	ld b,a
	ld a,(l10fd)
	add b
	ld (l0957),a
	ld a,(l10fe)
	add b
	ld (l0958),a
.l0d98
	ld hl,l1109
	dec (hl)
	ld hl,l1108
	ld a,(hl)
	and a
	jr z,l0daa
	ld hl,l110f
	dec (hl)
	jr nz,l0dcd
	ld (hl),a
.l0daa
	ld a,(l1103)
	and a
	jr z,l0dcd
	jp p,l0dc0
	ld hl,(l0957)
	ld de,(l10ff)
	add hl,de
	ld (l0957),hl
	jr l0dcd
.l0dc0
	ld hl,(l0957)
	ld de,(l10ff)
	and a
	sbc hl,de
	ld (l0957),hl
.l0dcd
	ld a,(l1101)
	bit 3,a
	jr nz,l0dda
	ld a,(l0957)
	ld (l095d),a
.l0dda
	ld a,(l110a)
	dec a
	ld (l110a),a
	jr nz,l0e01
	ld a,(l1106)
	ld (l110a),a
	ld hl,(l110d)
	ld a,(hl)
	inc hl
	and a
	jp p,l0dfb
	cp #80
	jr nz,l0e01
	ld hl,(l110b)
	ld a,(hl)
	inc hl
.l0dfb
	ld (l110d),hl
	ld (l095f),a
.l0e01
	ret
.l0e02
	ld a,(l1110)
	and a
	jr nz,l0e12
	ld a,(l111c)
	and a
	jr nz,l0e12
	ld (l0b67),a
	ret
.l0e12
	dec a
	ld (l1110),a
	ld a,(l111e)
	and a
	jr nz,l0e4a
	ld a,(l111c)
	and a
	jr nz,l0e28
	ld a,(l1119)
	and a
	jr z,l0e8c
.l0e28
	dec a
	ld (l1119),a
	ld a,(l1111)
	ld (l111e),a
	ld a,(l1117)
	and a
	jr z,l0e3b
	ld a,(l1167)
.l0e3b
	ld b,a
	ld a,(l1112)
	add b
	ld (l0959),a
	ld a,(l1113)
	add b
	ld (l095a),a
.l0e4a
	ld hl,l111e
	dec (hl)
	ld hl,l111d
	ld a,(hl)
	and a
	jr z,l0e5c
	ld hl,l1124
	dec (hl)
	jr nz,l0e7f
	ld (hl),a
.l0e5c
	ld a,(l1118)
	and a
	jr z,l0e7f
	jp p,l0e72
	ld hl,(l0959)
	ld de,(l1114)
	add hl,de
	ld (l0959),hl
	jr l0e7f
.l0e72
	ld hl,(l0959)
	ld de,(l1114)
	and a
	sbc hl,de
	ld (l0959),hl
.l0e7f
	ld a,(l1116)
	bit 3,a
	jr nz,l0e8c
	ld a,(l0959)
	ld (l095d),a
.l0e8c
	ld a,(l111f)
	dec a
	ld (l111f),a
	jr nz,l0eb3
	ld a,(l111b)
	ld (l111f),a
	ld hl,(l1122)
	ld a,(hl)
	inc hl
	and a
	jp p,l0ead
	cp #80
	jr nz,l0eb3
	ld hl,(l1120)
	ld a,(hl)
	inc hl
.l0ead
	ld (l1122),hl
	ld (l0960),a
.l0eb3
	ret
.l0eb4
	dw l0ee8,l0ef6,l0f04,l0f12
	dw l0f20,l0f2e,l0f3c,l0f4a
	dw l0f58,l0f66,l0f74,l0f82
	dw l0f90,l0f9e,l0fac,l0fba
	dw l0fc8,l0fd6,l0fe4,l0ff2
	dw l1000,l100e,l101c,l102a
	dw l1038,l1046
.l0ee8
	db #14,#02,#11,#00,#0a,#00,#fe,#00
.l0ef6 equ $ + 6
	db #ff,#00,#00,#02,#00,#00,#0e,#63
	db #c0,#00,#08,#00,#fe,#00,#01,#63
.l0f04 equ $ + 4
	db #02,#01,#00,#00,#12,#63,#c0,#01
	db #08,#00,#fe,#00,#01,#63,#02,#01
.l0f12 equ $ + 2
	db #00,#00,#0a,#02,#03,#00,#01,#00
	db #f7,#00,#01,#ff,#02,#01,#00,#00
.l0f20
	db #0f,#05,#60,#00,#08,#00,#fe,#00
.l0f2e equ $ + 6
	db #ff,#63,#08,#01,#00,#00,#32,#ff
	db #1f,#00,#01,#00,#f7,#00,#01,#ff
.l0f3c equ $ + 4
	db #01,#02,#00,#04,#1e,#02,#0b,#00
	db #01,#00,#fe,#00,#ff,#00,#08,#02
.l0f4a equ $ + 2
	db #00,#00,#03,#06,#90,#00,#80,#00
	db #f7,#00,#ff,#00,#03,#01,#00,#00
.l0f58
	db #0a,#63,#10,#04,#08,#00,#fe,#00
.l0f66 equ $ + 6
	db #01,#63,#03,#02,#00,#00,#0b,#05
	db #0f,#00,#04,#00,#f6,#00,#01,#0a
.l0f74 equ $ + 4
	db #00,#01,#00,#00,#28,#63,#c7,#00
	db #11,#00,#f6,#00,#ff,#63,#05,#02
.l0f82 equ $ + 2
	db #00,#00,#0a,#14,#50,#00,#09,#00
	db #f6,#00,#ff,#0a,#00,#05,#00,#00
.l0f90
	db #5a,#0a,#0a,#00,#03,#00,#f6,#01
.l0f9e equ $ + 6
	db #ff,#0a,#00,#0a,#00,#00,#14,#06
	db #01,#02,#c8,#00,#f6,#00,#ff,#ff
.l0fac equ $ + 4
	db #00,#05,#00,#00,#0c,#63,#11,#07
	db #14,#00,#fe,#00,#01,#ff,#03,#03
.l0fba equ $ + 2
	db #00,#00,#32,#05,#00,#00,#03,#00
	db #f6,#00,#ff,#63,#00,#03,#00,#00
.l0fc8
	db #0a,#63,#4f,#00,#01,#00,#f6,#00
.l0fd6 equ $ + 6
	db #01,#00,#03,#01,#00,#00,#0a,#63
	db #10,#03,#08,#00,#fe,#00,#01,#63
.l0fe4 equ $ + 4
	db #03,#02,#00,#00,#11,#05,#c7,#00
	db #20,#00,#f6,#00,#ff,#63,#00,#02
.l0ff2 equ $ + 2
	db #00,#00,#0f,#0f,#0f,#01,#01,#00
	db #f6,#00,#01,#00,#00,#01,#00,#00
.l1000
	db #0f,#01,#81,#00,#11,#00,#f6,#01
	db #ff,#ff
.l100e equ $ + 4
	db #03,#02,#00,#00,#1e,#63,#c7,#00
	db #11,#00,#f6,#00,#ff,#63,#05,#01
.l101c equ $ + 2
	db #00,#00,#1e,#ff,#0f,#00,#01,#00
	db #f7,#00,#01,#ff,#01,#01,#00,#01
.l102a
	db #32,#05,#00,#00,#06,#00,#f7,#00
.l1038 equ $ + 6
	db #ff,#63,#00,#03,#00,#00,#11,#05
	db #c7,#00,#20,#00,#f6,#00,#ff,#63
.l1046 equ $ + 4
	db #00,#01,#00,#00,#14,#63,#2f,#00
	db #00,#00,#f6,#00,#01,#63,#00,#01
	db #00,#00
.l1054
	dw l1066,l1073,l108c,l109c
	dw l10a4,l10c9,l10d8,l10da
	dw l10ec
.l1066
	db #0f,#0e,#0d,#0c,#0b,#0a,#09,#08
.l1073 equ $ + 5
	db #07,#06,#05,#04,#ff,#06,#08,#0a
	db #0b,#0c,#0d,#0e,#0e,#0e,#0d,#0d
	db #0c,#0c,#0b,#0b,#09,#08,#07,#06
.l108c equ $ + 6
	db #05,#04,#03,#02,#01,#ff,#06,#08
	db #0a,#0b,#0c,#0d,#0c,#0b,#0a,#08
.l109c equ $ + 6
	db #06,#04,#03,#02,#01,#ff,#0d,#0b
.l10a4 equ $ + 6
	db #09,#07,#05,#04,#03,#ff,#0f,#0d
	db #0c,#0b,#0a,#0d,#0c,#0b,#0a,#09
	db #0b,#0a,#09,#08,#07,#09,#08,#07
	db #06,#05,#07,#06,#05,#04,#03,#05
	db #04,#03,#02,#01,#03,#02,#01,#02
.l10c9 equ $ + 3
	db #01,#00,#ff,#0a,#0c,#0e,#0f,#0e
	db #0d,#0c,#0b,#0a,#09,#08,#07,#06
.l10da equ $ + 4
.l10d8 equ $ + 2
	db #05,#ff,#0b,#80,#0f,#0f,#0e,#0e
	db #0d,#0c,#0b,#0a,#09,#08,#07,#06
.l10ec equ $ + 6
	db #05,#04,#03,#02,#01,#ff,#0e,#0d
	db #0c,#0b,#0a,#09,#08,#07,#06,#05
.l10fd equ $ + 7
.l10fc equ $ + 6
.l10fb equ $ + 5
	db #04,#03,#02,#01,#ff,#00,#00,#00
.l1105 equ $ + 7
.l1104 equ $ + 6
.l1103 equ $ + 5
.l1102 equ $ + 4
.l1101 equ $ + 3
.l10ff equ $ + 1
.l10fe
	db #00,#00,#00,#00,#00,#00,#00,#00
.l110d equ $ + 7
.l110b equ $ + 5
.l110a equ $ + 4
.l1109 equ $ + 3
.l1108 equ $ + 2
.l1107 equ $ + 1
.l1106
	db #00,#00,#00,#00,#00,#00,#00,#00
.l1114 equ $ + 6
.l1113 equ $ + 5
.l1112 equ $ + 4
.l1111 equ $ + 3
.l1110 equ $ + 2
.l110f equ $ + 1
	db #00,#00,#00,#00,#00,#00,#00,#00
.l111d equ $ + 7
.l111c equ $ + 6
.l111b equ $ + 5
.l111a equ $ + 4
.l1119 equ $ + 3
.l1118 equ $ + 2
.l1117 equ $ + 1
.l1116
	db #00,#00,#00,#00,#00,#00,#00,#00
.l1125 equ $ + 7
.l1124 equ $ + 6
.l1122 equ $ + 4
.l1120 equ $ + 2
.l111f equ $ + 1
.l111e
	db #00,#00,#00,#00,#00,#00,#00,#00
.l112d equ $ + 7
.l112c equ $ + 6
.l112b equ $ + 5
.l1129 equ $ + 3
.l1128 equ $ + 2
.l1127 equ $ + 1
.l1126
	db #00,#00,#00,#00,#00,#00,#00,#00
.l1135 equ $ + 7
.l1134 equ $ + 6
.l1133 equ $ + 5
.l1132 equ $ + 4
.l1131 equ $ + 3
.l1130 equ $ + 2
.l112f equ $ + 1
.l112e
	db #00,#00,#00,#00,#00,#00,#00,#00
.l1139 equ $ + 3
.l1137 equ $ + 1
	db #00,#00,#00,#00
	call l1140
	jp l061b
.l1140
	xor a
	ld (l0b66),a
	ld (l0b67),a
	ld (l0b68),a
	ret
.l114b
	ld a,(l1166)
	and #48
	adc #38
	sla a
	sla a
	ld hl,l1169
	rl (hl)
	dec hl
	rl (hl)
	dec hl
	rl (hl)
	dec hl
	rl (hl)
	ld a,(hl)
	ret
.l1169 equ $ + 3
.l1168 equ $ + 2
.l1167 equ $ + 1
.l1166
	db #ff,#80,#1b,#34
.l116a
	db #2e
	dw l1198,l1194,l119c
	db #2e
	dw l11a4,l11a0,l11a8
	db #2e
	dw l1369,l1365,l136d
	db #2e
	dw l13f4,l13f0,l13f8
	db #2e
	dw l1422,l141e,l1426
	db #28
	dw l1452,l144e,l1456
.l1194
	dw l11ac,#0000
.l1198
	dw l1307,#0000
.l119c
	dw l1304,#0000
.l11a4 equ $ + 4
.l11a0
	dw l11ac,#0000,l1307,l14a6
.l11a8
	dw l1304,#0000
.l11ac
	db #91,#88,#01,#01,#8a,#e0,#d0,#84
	db #14,#01,#2b,#84,#14,#01,#26,#84
	db #14,#01,#23,#84,#14,#01,#26,#84
	db #14,#01,#23,#84,#14,#01,#1f,#84
	db #14,#01,#23,#84,#14,#01,#1f,#84
	db #14,#01,#1a,#90,#e2,#d4,#13,#8b
	db #e1,#d0,#8d,#3f,#8a,#e0,#13,#e2
	db #d4,#13,#8b,#e1,#d0,#8d,#3f,#8a
	db #e0,#0e,#e2,#d4,#12,#8b,#e1,#d0
	db #8d,#3f,#8a,#e0,#12,#e2,#d4,#12
	db #8b,#e1,#d0,#8d,#3f,#8a,#e0,#0e
	db #e2,#d4,#10,#8b,#e1,#d0,#8d,#3f
	db #8a,#e0,#10,#e2,#d4,#10,#8b,#e1
	db #d0,#8d,#3f,#8a,#e0,#0c,#e2,#d4
	db #0e,#8b,#e1,#d0,#8d,#3f,#8a,#e0
	db #0e,#e2,#d4,#0e,#8b,#e1,#d0,#8d
	db #3f,#8a,#e0,#0e,#e2,#d4,#0c,#8b
	db #e1,#d0,#8d,#3f,#8a,#e0,#0c,#e2
	db #d4,#0c,#8b,#e1,#d0,#8d,#3f,#8a
	db #e0,#07,#e2,#d4,#0b,#8b,#d0,#8d
	db #3f,#8a,#d4,#07,#8b,#d0,#8d,#3f
	db #8a,#e2,#d4,#09,#8b,#e1,#d0,#8d
	db #3f,#8a,#e0,#0e,#e2,#d4,#15,#8b
	db #e1,#d0,#8d,#3f,#8a,#e0,#15,#e2
	db #d4,#0e,#8b,#e1,#d0,#8d,#3f,#8a
	db #e0,#0e,#e2,#d4,#0e,#8b,#e2,#d0
	db #8d,#3f,#8a,#e2,#d4,#13,#8b,#e1
	db #d0,#8d,#3f,#8a,#e0,#13,#e2,#d4
	db #13,#8b,#e1,#d0,#8d,#3f,#8a,#e0
	db #0e,#e2,#d4,#12,#8b,#e1,#d0,#8d
	db #3f,#8a,#e0,#12,#e2,#d4,#12,#8b
	db #e1,#d0,#8d,#3f,#8a,#e0,#0e,#e2
	db #d4,#10,#8b,#e1,#d0,#8d,#3f,#8a
	db #e0,#10,#e2,#d4,#10,#8b,#e1,#d0
	db #8d,#3f,#8a,#e0,#0c,#e2,#d4,#0e
	db #8b,#e1,#d0,#8d,#3f,#8a,#e0,#0e
	db #e2,#d4,#0e,#8b,#e1,#d0,#8d,#3f
	db #8a,#e0,#0e,#e2,#d4,#09,#d0,#8d
	db #0e,#d4,#15,#d0,#8d,#10,#e2,#d4
	db #0e,#e1,#8b,#d0,#8d,#3f,#8a,#e0
	db #0e,#e2,#d4,#0e,#8b,#e1,#d0,#8d
	db #3f,#8a,#e0,#0e,#e2,#d4,#13,#d5
	db #8d,#1a,#0b,#8d,#15,#d4,#07,#87
.l1307 equ $ + 3
.l1304
	db #88,#01,#01,#8b,#e0,#d1,#41,#27
	db #3f,#41,#27,#3f,#41,#27,#3f,#8a
	db #d4,#e5,#2b,#e1,#2d,#d5,#e2,#2f
	db #d4,#ec,#32,#d4,#e5,#34,#e1,#36
	db #d5,#e2,#37,#d4,#ec,#32,#d4,#e5
	db #30,#e1,#32,#d5,#e2,#34,#d4,#e8
	db #32,#e0,#2f,#d5,#e2,#2b,#f7,#d4
	db #2d,#d4,#e5,#2b,#e1,#2d,#d5,#e2
	db #2f,#d4,#ec,#32,#d4,#e5,#34,#e1
	db #36,#d5,#e2,#37,#d4,#ec,#3b,#d4
	db #e5,#39,#e1,#3b,#d5,#e2,#3c,#d4
	db #e9,#3e,#d5,#e2,#32,#ee,#d4,#37
	db #87
.l1369 equ $ + 4
.l1365
	dw l1371,#0000,l13cf,#0000
.l136d
	dw l13cc,#0000
.l1371
	db #88,#01,#01,#8a,#e0,#d0,#84,#14
	db #01,#2b,#84,#14,#01,#26,#84,#14
	db #01,#23,#84,#14,#01,#26,#84,#14
	db #01,#23,#84,#14,#01,#1f,#84,#14
	db #01,#23,#84,#14,#01,#1f,#84,#14
	db #01,#1a,#90,#e2,#d4,#15,#e1,#8b
	db #d0,#8d,#3f,#8a,#e0,#15,#e2,#d4
	db #15,#8b,#e1,#d0,#8d,#3f,#8a,#e0
	db #10,#e2,#d4,#0e,#e1,#8b,#d0,#8d
	db #3f,#8a,#e0,#0e,#e2,#d4,#0e,#e1
	db #8b,#d0,#8d,#3f,#8a,#e0,#0e,#e5
.l13cf equ $ + 6
.l13cc equ $ + 3
	db #d5,#13,#8e,#88,#01,#01,#8b,#e0
	db #d1,#41,#27,#3f,#41,#27,#3f,#41
	db #27,#3f,#8a,#d4,#e5,#39,#e1,#3b
	db #d5,#e2,#3c,#d4,#e9,#3e,#e2,#84
	db #ff,#0c,#32,#e5,#d5,#37,#8e
.l13f4 equ $ + 4
.l13f0
	dw l13fc,#0000,l1404,#0000
.l13f8
	dw l1413,#0000
.l13fc
	db #8b,#df,#fa,#8d,#3f,#8d,#3d,#87
.l1404
	db #8a,#dd,#88,#01,#01,#f4,#0c,#0c
.l1413 equ $ + 7
	db #0c,#0c,#0b,#0b,#0b,#0b,#87,#8a
	db #dd,#88,#01,#01,#f4,#0d,#0e,#0f
	db #0e,#87
.l1422 equ $ + 4
.l141e
	dw l1371,#0000,l142d,#0000
.l1426
	dw l142a,#0000
.l142d equ $ + 3
.l142a
	db #88,#01,#01,#8b,#e0,#d1,#41,#27
	db #3f,#41,#27,#3f,#41,#27,#3f,#8a
	db #d4,#e5,#3e,#e1,#3c,#d5,#e2,#3b
	db #d4,#e9,#39,#e2,#84,#01,#0c,#32
	db #e5,#d5,#2b,#8e
.l1452 equ $ + 4
.l144e
	dw l11ac,#0000,l145d,#0000
.l1456
	dw l145a,#0000
.l145d equ $ + 3
.l145a
	db #88,#01,#01,#8b,#e0,#d1,#41,#27
	db #3f,#41,#27,#3f,#41,#27,#3f,#8a
	db #df,#e7,#2b,#e0,#26,#e1,#2b,#ec
	db #32,#e7,#2b,#e0,#2a,#e1,#28,#ec
	db #26,#e7,#28,#e0,#2a,#e1,#2b,#e8
	db #26,#e0,#26,#e1,#28,#f8,#2a,#e7
	db #2b,#e0,#26,#e1,#2b,#ec,#32,#e7
	db #2b,#e0,#2a,#e1,#28,#ec,#26,#e7
	db #21,#e0,#23,#e1,#24,#e9,#1e,#e2
.l14a6 equ $ + 4
	db #21,#ee,#1f,#87,#8e,#00
	push bc
	push de
	push hl
	call l0b6b
	pop hl
	pop de
	pop bc
	ret
	push bc
	push de
	push hl
	push ix
	call l0400
	pop ix
	pop hl
	pop de
	pop bc
	ret
;

.game_name
	db "Spitting Image - The Computer Game",0
.game_year
	db "1988",0
.game_publisher
	db "Domark",0
.music_author
	db "David Whittaker",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
